home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pcrjan89.arc / GETFILES.BAS < prev    next >
BASIC Source File  |  1990-03-21  |  646b  |  26 lines
  1. DEFINT A-Z: CLS : KEY OFF: DIM F$(60)
  2. ROW = 25: COLUMN = 1:  COLOR 0, 0: FILES "*.*"
  3.  WHILE ROW > 1
  4.    WHILE COLUMN < 20
  5.      BFREE$ = BFREE$ + CHR$(SCREEN(ROW, COLUMN))
  6.       COLUMN = COLUMN + 1
  7.    WEND
  8.     IF INSTR(BFREE$, "Bytes") > 0 THEN LASTLINE = ROW - 1
  9.     ROW = ROW - 1: COLUMN = 1: BFREE$ = ""
  10.  WEND
  11.     N = 1
  12.    FOR ROW = 2 TO LASTLINE
  13.     FOR COLUMN = 0 TO 3
  14.      F$(N) = ""
  15.      FOR CHARACTER = 1 TO 12
  16.       F$(N) = F$(N) + CHR$(SCREEN(ROW, COLUMN * 18 + CHARACTER))
  17.      NEXT CHARACTER
  18.      N = N + 1
  19.    NEXT COLUMN
  20.   NEXT ROW
  21.   COLOR 7, 0: CLS
  22.   FOR DISPLAY = 1 TO N
  23.    PRINT F$(DISPLAY)
  24.   NEXT DISPLAY
  25.  
  26.